home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / pers_inc.sit / Income report / background_2700.txt < prev    next >
Text File  |  1988-02-08  |  11KB  |  476 lines
  1. -- background: 2700 from stack: in
  2. -- bmap block id: 3312
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11.  
  12. -- part 2 (field)
  13. -- low flags: 00
  14. -- high flags: 4000
  15. -- rect: left=282 top=33 right=52 bottom=374
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 0
  19. -- font id: 3
  20. -- text size: 14
  21. -- style flags: 256
  22. -- line height: 18
  23. -- part name: Date
  24.  
  25.  
  26. -- part 78 (field)
  27. -- low flags: 00
  28. -- high flags: 4000
  29. -- rect: left=73 top=79 right=298 bottom=124
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 65535
  33. -- font id: 3
  34. -- text size: 9
  35. -- style flags: 0
  36. -- line height: 12
  37. -- part name: column
  38.  
  39.  
  40. -- part 80 (field)
  41. -- low flags: 00
  42. -- high flags: 4000
  43. -- rect: left=123 top=79 right=298 bottom=175
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 65535
  47. -- font id: 3
  48. -- text size: 9
  49. -- style flags: 0
  50. -- line height: 12
  51. -- part name: column
  52.  
  53.  
  54. -- part 81 (field)
  55. -- low flags: 00
  56. -- high flags: 4000
  57. -- rect: left=173 top=79 right=298 bottom=224
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 65535
  61. -- font id: 3
  62. -- text size: 9
  63. -- style flags: 0
  64. -- line height: 12
  65. -- part name: column
  66.  
  67.  
  68. -- part 82 (field)
  69. -- low flags: 00
  70. -- high flags: 4000
  71. -- rect: left=223 top=79 right=298 bottom=274
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 65535
  75. -- font id: 3
  76. -- text size: 9
  77. -- style flags: 0
  78. -- line height: 12
  79. -- part name: column
  80.  
  81.  
  82. -- part 83 (field)
  83. -- low flags: 00
  84. -- high flags: 4000
  85. -- rect: left=273 top=79 right=298 bottom=324
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 65535
  89. -- font id: 3
  90. -- text size: 9
  91. -- style flags: 0
  92. -- line height: 12
  93. -- part name: column
  94.  
  95.  
  96. -- part 84 (field)
  97. -- low flags: 00
  98. -- high flags: 4000
  99. -- rect: left=323 top=79 right=298 bottom=374
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 65535
  103. -- font id: 3
  104. -- text size: 9
  105. -- style flags: 0
  106. -- line height: 12
  107. -- part name: column
  108.  
  109.  
  110. -- part 85 (field)
  111. -- low flags: 00
  112. -- high flags: 4000
  113. -- rect: left=373 top=79 right=298 bottom=424
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 65535
  117. -- font id: 3
  118. -- text size: 9
  119. -- style flags: 0
  120. -- line height: 12
  121. -- part name: column
  122.  
  123.  
  124. -- part 86 (field)
  125. -- low flags: 00
  126. -- high flags: 4000
  127. -- rect: left=423 top=79 right=298 bottom=487
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 65535
  131. -- font id: 3
  132. -- text size: 9
  133. -- style flags: 0
  134. -- line height: 12
  135. -- part name: total
  136.  
  137.  
  138. -- part 92 (button)
  139. -- low flags: 00
  140. -- high flags: 8003
  141. -- rect: left=75 top=311 right=334 bottom=124
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: recalc
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   set numberFormat to "00.00"
  153.   set cursor to 4
  154.   put 0 into grandtotal
  155.   repeat with row = 1 to 18
  156.     put 0 into total
  157.     repeat with col = 2 to 8
  158.       add first word of line row of field col to total
  159.     end repeat
  160.     if total is zero then put empty into total
  161.     put total into line row of field 9
  162.     add total to grandtotal
  163.   end repeat
  164.   put grandtotal into field "Grand Total"
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 93 (button)
  170. -- low flags: 00
  171. -- high flags: 0000
  172. -- rect: left=251 top=307 right=332 bottom=278
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 1014 / 1014
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: Prev
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   visual effect scroll right
  184.   go to previous card
  185. end mouseUp
  186.  
  187.  
  188.  
  189. -- part 94 (button)
  190. -- low flags: 00
  191. -- high flags: 0000
  192. -- rect: left=284 top=307 right=332 bottom=311
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 1013 / 1013
  195. -- text alignment: 1
  196. -- font id: 0
  197. -- text size: 12
  198. -- style flags: 0
  199. -- line height: 16
  200. -- part name: Next
  201. ----- HyperTalk script -----
  202. on mouseUp
  203.   visual effect scroll left
  204.   go to next card
  205. end mouseUp
  206.  
  207.  
  208.  
  209. -- part 95 (button)
  210. -- low flags: 00
  211. -- high flags: 0000
  212. -- rect: left=432 top=29 right=54 bottom=457
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 21700 / 21700
  215. -- text alignment: 1
  216. -- font id: 0
  217. -- text size: 12
  218. -- style flags: 0
  219. -- line height: 16
  220. -- part name: Home
  221. ----- HyperTalk script -----
  222. on mouseUp
  223.   visual effect iris open
  224.   go Home
  225. end mouseUp
  226.  
  227.  
  228.  
  229. -- part 97 (field)
  230. -- low flags: 00
  231. -- high flags: 0002
  232. -- rect: left=423 top=297 right=309 bottom=487
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 65535
  236. -- font id: 3
  237. -- text size: 10
  238. -- style flags: 0
  239. -- line height: 13
  240. -- part name: Grand total
  241.  
  242.  
  243. -- part 98 (button)
  244. -- low flags: 00
  245. -- high flags: 0000
  246. -- rect: left=462 top=28 right=54 bottom=501
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 21209 / 21209
  249. -- text alignment: 1
  250. -- font id: 0
  251. -- text size: 12
  252. -- style flags: 0
  253. -- line height: 16
  254. -- part name: Daily
  255. ----- HyperTalk script -----
  256. on mouseUp
  257.   go to stack "Datebook"
  258. end mouseUp
  259.  
  260.  
  261.  
  262. -- part 99 (button)
  263. -- low flags: 00
  264. -- high flags: 0000
  265. -- rect: left=392 top=29 right=54 bottom=426
  266. -- title width / last selected line: 0
  267. -- icon id / first selected line: 17481 / 17481
  268. -- text alignment: 1
  269. -- font id: 0
  270. -- text size: 12
  271. -- style flags: 0
  272. -- line height: 16
  273. -- part name: Rolo
  274. ----- HyperTalk script -----
  275. on mouseUp
  276.   visual effect zoom open
  277.   go to stack "addresses"
  278. end mouseUp
  279.  
  280.  
  281.  
  282. -- part 100 (button)
  283. -- low flags: 00
  284. -- high flags: 8003
  285. -- rect: left=15 top=311 right=334 bottom=68
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 1
  289. -- font id: 0
  290. -- text size: 12
  291. -- style flags: 0
  292. -- line height: 16
  293. -- part name: report
  294. ----- HyperTalk script -----
  295. on mouseUp
  296.   push card
  297.   set the numberformat to "0.00"
  298.   set lockscreen to true
  299.   put 0 into total
  300.   repeat with i = 1 to number of cards
  301.     go to card i
  302.     add first word of field "Grand Total" to total
  303.   end repeat
  304.   put "Total earnings = $" into message box
  305.   put total after message box
  306.   put " (average of $" after message box
  307.   put total / number of cards after message box
  308.   put " per week)" after message box
  309.   pop card
  310.   set lockscreen to false
  311. end mouseUp
  312.  
  313.  
  314.  
  315. -- part 102 (button)
  316. -- low flags: 00
  317. -- high flags: 8003
  318. -- rect: left=15 top=60 right=73 bottom=29
  319. -- title width / last selected line: 0
  320. -- icon id / first selected line: 0 / 0
  321. -- text alignment: 1
  322. -- font id: 0
  323. -- text size: 12
  324. -- style flags: 0
  325. -- line height: 16
  326. -- part name: $
  327. ----- HyperTalk script -----
  328. on mouseUp
  329.   set cursor to 4
  330.   set lockscreen to true
  331.   push card
  332.   domenu "new button"
  333.   set rect of button "new button" to 50,60,63,73
  334.   put id of button "new button" into buttonid
  335.   set name of button "new button" to "$"
  336.   go stack "income vouchers"
  337.   domenu "new card"
  338.   put id of this card into cardid
  339.   pop card
  340.   put "on mouseUp" & return into scriptMaker
  341.   put "put background field 1 into weekdate" & return after scriptMaker
  342.   put "put getamount() into amount" & return after scriptMaker
  343.   put "put getcategory() into category" & return after scriptMaker
  344.   put "put getdate(weekdate) into date" & return after scriptMaker
  345.   put "push card" & return after scriptMaker
  346.   put "go stack " & quote & "income vouchers" & quote after scriptMaker
  347.   put return after scriptMaker
  348.   put "go to " & cardid & return after scriptMaker
  349.   put "put category into background field 1" after scriptMaker
  350.   put return after scriptMaker
  351.   put "put date into background field 5" after scriptMaker
  352.   put return after scriptMaker
  353.   put "put amount into background field 2" & return after scriptMaker
  354.   put "end MouseUp" after scriptMaker
  355.   set script of button id buttonid to scriptMaker
  356.   set lockscreen to false
  357. end mouseUp
  358.  
  359.  
  360.  
  361.  
  362. -- part 103 (button)
  363. -- low flags: 00
  364. -- high flags: 0000
  365. -- rect: left=443 top=315 right=331 bottom=476
  366. -- title width / last selected line: 0
  367. -- icon id / first selected line: 0 / 0
  368. -- text alignment: 1
  369. -- font id: 0
  370. -- text size: 12
  371. -- style flags: 0
  372. -- line height: 16
  373. -- part name: To expenses
  374. ----- HyperTalk script -----
  375. on mouseUp
  376.   visual effect barn door close to black
  377.   go to last card of stack "budget"
  378.   get the date
  379.   convert it to seconds
  380.   put it into dateSec
  381.   get field "date"
  382.   convert it to seconds
  383.   add 7 * 86400 to it
  384.   put it into lastday
  385.   repeat while dateSec > lastday
  386.     get newWeek()
  387.     get field "date"
  388.     convert it to seconds
  389.     add 7 * 86400 to it
  390.     put it into lastday
  391.   end repeat
  392. end mouseUp
  393.  
  394.  
  395.  
  396.  
  397. -- part 104 (field)
  398. -- low flags: 00
  399. -- high flags: 0000
  400. -- rect: left=7 top=79 right=298 bottom=71
  401. -- title width / last selected line: 0
  402. -- icon id / first selected line: 0 / 0
  403. -- text alignment: 0
  404. -- font id: 3
  405. -- text size: 9
  406. -- style flags: 0
  407. -- line height: 12
  408. -- part name: headings
  409.  
  410.  
  411. -- part 105 (button)
  412. -- low flags: 00
  413. -- high flags: 0000
  414. -- rect: left=343 top=308 right=332 bottom=375
  415. -- title width / last selected line: 0
  416. -- icon id / first selected line: 1012 / 1012
  417. -- text alignment: 1
  418. -- font id: 0
  419. -- text size: 12
  420. -- style flags: 0
  421. -- line height: 16
  422. -- part name: New Button
  423. ----- HyperTalk script -----
  424. on mouseUp
  425.   visual effect scroll right
  426.   go to first card of stack "budget"
  427. end mouseUp
  428.  
  429.  
  430.  
  431. -- part 106 (button)
  432. -- low flags: 00
  433. -- high flags: 0000
  434. -- rect: left=185 top=310 right=333 bottom=211
  435. -- title width / last selected line: 0
  436. -- icon id / first selected line: 0 / 0
  437. -- text alignment: 1
  438. -- font id: 0
  439. -- text size: 12
  440. -- style flags: 0
  441. -- line height: 16
  442. -- part name: New Button
  443. ----- HyperTalk script -----
  444. on mouseUp
  445.   set lockscreen to true
  446.   get newWeek()
  447.   set lockscreen to false
  448. end mouseUp
  449.  
  450.  
  451.  
  452. -- part 107 (button)
  453. -- low flags: 00
  454. -- high flags: 8003
  455. -- rect: left=127 top=311 right=334 bottom=179
  456. -- title width / last selected line: 0
  457. -- icon id / first selected line: 0 / 0
  458. -- text alignment: 1
  459. -- font id: 0
  460. -- text size: 12
  461. -- style flags: 0
  462. -- line height: 16
  463. -- part name: update
  464. ----- HyperTalk script -----
  465. on mouseUp
  466.   set the cursor to 4
  467.   set lockscreen to true
  468.   get field "headings"
  469.   repeat with i = 1 to number of cards
  470.     go to next card
  471.     put it into field "headings"
  472.   end repeat
  473.   set lockscreen to false
  474. end mouseUp
  475.  
  476.